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[0024] wtmnm* *i Vbw&tKt&ti 
* <7>7 9^ft^reitr* i. j^HRjewsriadtcov ^-c^ib 

WZMTlz^t. 

1 0 0 2 5 ] f -f . 7 7" 'J 7--^ a y<0«J«^«. * 
«Wft8Wlfti— f fc-f ^^7x-X$:^ttl)ro/ 

3y7^a^3 ytCWtl. 7 77,C0^|g^^t. 

-f ^7x-^ttffftJ:d5«B'C*->Tt)J:v\ 77* 
ytiay hD— ^757. (TsContro 
1 Class) i^^/y'i 7 h fea— f^t-f >-*7 
VTst. <Xt, Cfta-ifKIPa$*ifcfBil*tt&fcft 
ft»«*nf^Ul-*-. i— f«i> :ft4oflW)"W>« 

-fS*\ i*i^«4M3iVfll«Sr*tr*<9*»tftjaiS 
ft^ayhn-yp rx7Urhj Sr^^tSdtj^T^ 

*. 7ry7--$/3V(cj:-3-c^nrc*#i«r, *4>3&»t 

ayhn-;l/757. (TsCo n t r o 1 Clas 

s) tiSOT^it^TS*. 

[0026] ayho-/k?7X (TsControl 
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1 1 



1 2 



C 1 a s s ) tit. XffliVfflfiTX'ftmZffiilLLmth 
TsControl?^.X 



[0027] 



{ 

TsSysConfig sysconf; llayy 4 ^ jlI^-^h r 'f/W/yx 



//^ y-fc— ^7^ 7y ] J *7Vx 9 h 

//#** 

ll*-*7-}*VXh 



TsMessageL i b msg 1 i b 
TsOperCtl Script 

•operctl; 
TsStr opername ; 
Si ng 1 y_ 1 i nked_ 1 i st ( TsKwd I nf oP tr) 

keywords; // 
Doubly_linked_list(TsStr) //ffiffl WStJ—W X Y 

•toolsjist; // 
int error; //X5HJ3BWI 



TsTokens 
TsTokens 
TsStr 

X) 

TsStr 

TsStr 
TsStr 
TsStr 
TsBoolean 



importf i les; II A y^- b 7 r A )V U X h 

exportf i les ; //X^XtK- b 7 r -f )VV X V 

srcpctepath; //'J7rUy^/tA07?-bX« (V— 

tarpctepath; //!i7rl/yHA^)7?«* ( 5^-** 

srctoolname ; // 7 —X 7— 

tartoolname; ll?~jfv 

logfilepath; //x>->^7 7 A }V79*X%x 

autonaming; //g$^|}7 7/ 

autochecking ; //^145II27 7 If 



II 

ll7)U-T%m*liiL 

ii$mv>m~7fch£Tfm#% 



TsBoolean 

immm 

DoublyJ inkedj ist(TsStr) 
GetGroupProrapts ( 

Si ngl y_l i nkedj ist (TsGroupI nf oPtr) 

*group. list );//vers le demandeur 
TsKwdlnfo •FindKeyword( VOfe&CDffiM 

const TsStrS keyword) const; llf^^-V- Y<T>f^h<n^7 

void AddKeywords(const in) XV fc*-7- KSriliU 
SinglyJinkedJist(TsKwdInfoPtr)& //*-7- K U X h 
kwd_Iist );// 

i/ft$&±Wfmm& 

TsControl ( // 

const TsStr& sys.conf ig_path, 
<D^X TsStr& 

const TsStrS msg_lib_path 

); // 



ayxhy?? 

Ila yy ^ jlU-^h yyyA)V 
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vi rtual — TsControl () ; //tX hy9 9 

int LoadNewOperCtlScript( //ayYU-fr r*?>j7°hj <7)P-F 

const TsStr& ctLscript_path );// 
int WriteOperCtlScriptO; //ayhv-fr r^^UThj ^SSCffl 

int CreateOperCtlScript( //ZX>YX2-fr ^ X9 ] )7h J OfMc 

const TsStrS ctl_script_path );// 
int RunOperCtlScriptO; //3yhn-/|/ *X9V7h\ CO^fr 

void SetOperationNarae( //tf^&<7)iS£! 

const TsStrS opname );// 
const TsStrS GetOperationNameO const; //tf^&^B^ftL 

void SetTargetPctePath( //U 7 r VVs'-Wl^X ( ? h ) <7) 

const TsStr& tpath ) ;// 
const TsStrS GetTargetPctePath () const; //V7tU >i"vfrJ*X 
h) <OS*iBL 

void SetSourcePctePath( //U 7 rl/V^^« ( V-X ) (Dlkfe 

const TsStrS spath );// 
const TsStrS GetSourcePctePath () const; //'J7r V V l/^fr^X 

void SetTargetToolName( / 79— hV-)V%x<?)Wtfe 

const TsStrS tname ) ;// 
const TsStrS GetTargetToolNameO const 1/9— Yv VV—M&M 

void SetSourceToolName( 1/9—?** YV—)V%x<rM&. 

const TsStrS sname ) ;// 
const TsStrS GetSourceToolName () const; /IV—XV-fr&<nW* 

tat 

void SetLogFilePath( l/V*—+fry T4)Vrt7.<r)Wi3L 

const TsStrS lpath ) ;// 
const TsStr& GetLogFilePathO const; fry r 4 )W*X<b 

void SetAutoNamingOn () ; //^fffiMfcO N 
void SetAutoNamingOf f () ; //W\<?MmkO F F 
void SetAutoNamingFlag( //£f(|7 7^ffi<7)l££ 

const TsStrS name.f lag ) ; // 7 5 Ml y ^ 

int GetAutoNamingStateO; //£ ff7 ^ ^JBK»ffl t 
const char 'const GetAutoNamingFlagO ; //& Iff 7 7 ti} L 
void SetAutoCheckingOnO; //^£tt«fg*^ 
void SetAutoCheckingOffO; //^ttffig^-tf-f 
void SetAutoCheckingFlag ( //^^:ttfilf27 7 

const TsStrS check.f lag ) ; YWfyy? 
i nt GetAutoChecki ngState ( ) ; //^ttWIS 7 7 /ftJSf^ttJ t 
const char 'const GetAutoCheckingFlagO ; //5g£1451I27 7^®^ 

void SetImportFiles( //>f h 7 r "f /U*iIflD 

const TsStrS i f i les ) ; IM > ifi- h 7 r fr&A hV>Y 
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15 16 
void AddImportFile( //A b 7 7 4 /l^iliD 

const TsStrS if i le ) ; l/A hyrA)V%x 
void RemovelraportFi le( l/A Vi$- WtA )V%xW& 

const TsStrS i f i le ) ; A yrff- b 7 7 A )V%x 
int IsImportFileOnList( //UX h±"C«*»OW!lW)f-x 

const TsStrS i f i le ) ; //>f V tK- b 7 r >f ^ 
const TsStr& Getl mportFi 1 esStr () ; l/A hVrA )V&X b U 

const Doubly_linkedJist(TsStr)& // 

GetlmportFi lesListO ; //A >#~ Y7tA)VQ)X bf&^tij 

L 

void SetExportFiles( //X^XtK- b yrA^MU 

const TsStr& ef i les ) ; //X^.X*'- b 7 r A )V&X b !i V 

void AddExportFile( //X*X;tf- b 7 7 4 /^iiJP 

const TsStrS ef i le ) ; //X^r Zft— hyrA)V& 

void RemoveExportFi 1 e( //X* b 7 7 A JVmWH 
const TsStrS ef i le ) ; //x**;K- h7r^/^ 

int IsExportFileOnList( //UX b±"C^&HU^)**l^f-x v 9 
const TsStrS ef i le ) ; //JC*A#- YyrA)V& 

const TsStr& GetExportFi lesStr () ; //X^XtK- b 7 r A )V&X b 

const DoublyJinked_list(TsStr)S // 

GetExportFi lesList () ; //JL^Aifi- V? T A )V%xV XYWifr 

const DoublyJinkedJist(TsStr)* // 
ListToolsO ; //ttffl^SSy-^R^ffi L 

void SetKeywordValue( //UXb^^-7— KOillD 

const TsStrS name, *7— Y&Z b U 

const TsStrS value ) ;//*— 7- HffiX b U 
const TsStrfc GetKeywordValue( const TsStrS keyword) const; //#> 

void RemoveKey word (const TsStrS keyword); /fhh*k— V— Y\Z.*0 
lvC*-7~K*7Vx?b£«&^ 

Doubly_linked_list(TsStr)* GetGroups (const TsKwdExprfc exp) ; / 

DoublyJinkedJist(TsStr)* GetGroups (const TsKwdlnfoS inf); / 

void DoImportO ; //>f bfWgUff 
void DoExportO ; //3L*Xtf- bft^gjgfr 
void DoTransfer () ; //K&fl^Kllfir 

operator int() const; //SliScitli:! 

void PrintO; /M/yx^h^WJyb 
}; //TsCon t r o 1 ?7*feT 

SysConf ig^m *%W«^)3y7 * <07?-fc**£KS"f 4£ ktfX'Z ^<T)9vX\XL 
A**V-v*vyyA}V<7)mji\9yXXfoh. A >x ^<?>1imx*ffifl?&ZktfX'Z& 9 
*VX*4£fcfcJ; 9 X3>7r^;l/*50 [0 0 28] S^^fcjrfitf. A>XhU-i/3> 
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*y ?Slflb"SysConf ig: :AppendLocalConf igurationO "A* 

[00 2 9]fltl^flSrififcJ:Wjf. Sy sConf i g 
Sy sConf i 



1 8 



-^«3t^#^"SysConfig::LoadFile()"lS^^W 

U^JSto LoadFileOaffit, Sft^OHfir^rffift^ 
O 3 y 7 >r % jl V - h y A* 3 y 7 4 3f a P - is 3 V 7 

JiO"SysConf ig: :Find. . . () "«igC J: 0, 3V7^^ 
[0030] 



{ 



//a y 7 >r ^ * v—*s a y 7 r >f ;l^<0T?-t:x£ 
//i? y 7 < 3f * 3 y»#aj Lnt&yn* 



//ay? ^^.l/-y 3 y## &frcotztb<7) 



TsStr pathname; 
TsFileReader * input; 
7Vx?h 

TsFileWriter * output; 

Si ng 1 y_ 1 i nked.r i ng (TsExec I nf o* ) execj ist ; 

a yr-mm 

TsExecInfo ♦curr.exec; //HffCOSffifPS^^ V 9 

TsGroupInfo *curr_group; //*g£?7U— 7 0/ \0*M y 9 

TsMethodlnfo •curr.method; //S^ffi^O^ yf 

SysConf ig (const TsStrS path) ; //ayxhyf? 

—SysConf i g ( ) ; //fA Yy?? 

int LoadFileO; //7 r>f A^ABiUSitWHff 

TsExecInfo *Find Exec (const TsStrS name, //fi^SSff^ffifiM^lfc 



const TsStrS location) ; // 
TsGroupInfo *FindGroup (const TsStrS name); 
TsMethodlnfo *FindProc (const TsStr& name); 
static int Appendiceal Configurati on () ; 

static int Del eteLocalConf igurationO ; 



Ope rCt 1 Sc r ipt?5^(i, *^^IS^ * [003 1 ] "OperCtl Script: :SaveFile()" 



MZ S "OperCtlScri P t::LoadFile() M tS^ffi^ixl><» X 



40 



OperCt IScri pt?7X 



^KffifcjftS. £?t<rtf)?7X{;L nvyKcoUfffc 
J:U r ^Hfi : ^ISg^^ny7 -f 3 yfcitf 

[0032] 



TsStr pathname ; //Z7V7V77 
int temp; /WjrM75/ 

TsFileReader * input; //X? Vy'YStfritiLcOtzbbCD^is x.7 Y 
TsFileWriter ♦output; /AX? U 7* f-«£ y&0ytt\hff)Jt7V ±9 Y 
TsExecInfo ♦curr.exec; //S^Uff nT8B*^ 
TsGroupInfo •curr^roup; //Sffi?);/;!/— 7' 
TsMethodlnfo ♦curr.method; //SfcO^Tjfc 
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Singly_Linked_List(TsMethodInfo*)commands; /f!gfrfK% a~?y Y 
SinglyJinked_List(TsDef*)defines; //37V YW* 3 ?* — ? 
SysConfig •system; //SysConf i g^TVx? h^WtfJ V 

TsStr next.exec; //fir S^ifcO^ff 

TsStr next.l oc ; //ft^llfi^iiEfF 

OperCtl Script (const TsStrS path) ; //uyxYy?? 

—OperCtlScript () ; //fX Y7 99 

int LoadFileO; //7 r4 JWm&liil&XXfftVr 

int SaveFi le() ; 1/7 r A V 7 4 3f a U-j^ a y<0» § 

int SaveFi le(const TsStrS new.path) ; IIWSL7 r 4 MtofetiL 

int RunCommands () ; /AJj&K/Oi L 

int PassExecutionO ; //SrSUff^^OWtti L 

} 

TsDef^^t 3yhD-;|/X?fJ7b^-7 * [0033] 

TsDe f^5X 
{ 

TsStr keyword; l/^-V- KHfflff 
TsStr value; Ftt 

TsDef (const TsStr& kwd , const TsStrS val ) ; // a y X Y y 9 9 
-TsDef (); T*Y7?? 

void SetValue(const TsStr& val); //^— *7— KttSS 
const TsStrS GetKeywordO ; //if- 7- FaBM^Rfcili L 
const TsStrS GetValueO ; Kffifj^ffi L 

} 

T s Kwd I nfo^xa, F^ffiSfe J;tf (fitfiSfiOJg*) £#£?TsDe f 

SIR. 5:WHny7^zl/-y3y7T>f;l'«l *7V*9 Y*W#4V9\»9&th. 
¥*m$fci&btL&. Z.a?5A0)*7i?x?hlt. *X [0 0 34] 
T s Kwd I n f o??X 
{ 

TsStr keyword ; V- KflBFP 

int prompted; //§g|*jX b U v-b— i/ 

TsDef •definition; h^O^ > * 

TsKwdlnfo (const TsStrS kwd, //3yxf7^? 

const TsStrS prmt) ; // 
—TsKwdlnf o() ; Z/fX b 7 9 9 

int SetDef (const Si ngl y_ 1 inked.list (TsDef )& defs) ; //^— 7— 
FflKJg 

const TsStr& GetKeywordO ; //^-V- KSKH^Si^a} L 
const TsStr& GetValueO ; l/*-V- HffiO^ttJ L 
const TsStr& GetPrompt () ; h U V l/COm^tH L 

} 

TsMethodI nfo^5Xli ^-V-KfcJltf *5o 

3 y#ll*^Siifc*ffi^aBO't*ot:tt*)*i* [0035] 

TsMethod I nfo^X 
< 

TsStr name; //^S^S 

TsGroupInfo •group; //7i]r-7jT7isx 9 Y*»<F>iSA y?cr>W% 
SinglyJinked_list(TsKwdInfo *)kwdjist; l/*-V-YVXY 
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SinglyJinkedJist(TsKwdInfo *)opt_list; V VX b 

TsMethodlnfo (const TsStrS nam, TsGroupInfo *grp) ; //a VXby 

99 

—TsMethodlnfo () ; //fX h y 9 9 

const TsStrS GetName () ; /ffifcZMfriii I 

TsGroupInfo •GetGroupO ; //^-T^tT^x 9 b<Wtf4 V9fi$L 

void AddKeywordffsKwdlnfo *kwd); //'J X b^CO*-?- bCOMll 
void AddOption(TsKwdInfo 'opt) ; //U X b^^Ti^ 3 >cr>M\l 
TsKwdlnfo *FindKey(const TsStr& key.name); //*-*7- H^)iKWB 

L 

} 

TsGroup I nfo^Xli ^-Tfcitfffl^ * [0 036] 

TsGroup I nfo^7^ 
{ 

TsStr name; //7)V—?%x 
TsExecInfo 'exec; //mff^^^CO^ V9<K\m 
SinglyJ inked.l ist (TsMethodlnfo • ) method J ist ; //fife?) VXb 
TsGroupInfo(const TsStr& nam, TsExecInfo *exc); //oyxby9 

9 

— TsGroupInfo () ; Z/fX by 9 9 

const TsStrS GetName () ; //ffo-TZMfr Hi L 

TsExecInfo 'GetExec () ; //Mx^m^*? y'x 9 b^CDtfJ V9<K 

void AddProc (TsMethodI nf o • method) ; // ] )Xb J'ffi^iiSD 
TsMethodlnfo 'FindProc (const TsStrS method.name) ; f/^&<r>W* 

aiL 

} 

TsExec I nf o9yXl^ Hff^I^^it/ffl 30* [0 037] 

TsExe c I n f o9yX 
{ 

TsStr name; //mi^m^CO^m 

TsStr location; //Hff^fi&fr^07?-ex£ 

Singly. 1 inkedj ist (TsGroupInfo • )group_l ist; 7 VXb 

TsExec Info (const TsStr& nam, //a VXby99 

const TsStrS location); // 
— TsExecInfo () ; Z/fX by 9 9 

const TsStr& GetName () ; //Hfi^l^^SS^aj L 
const TsStr& GetLocationO ; //Hff ^XWifrftL 
void AddGroup (TsGroupInfo ♦ group) ; // »J X b'WtflV— 7°<7)iijD 
TsGroupInfo ♦FindGroup (const TsStr& group.name) \//7)V— TCO^tii L 
I 

h9yX<n^M&^t. imthmk (02Cfcvvttt *9ttV<n?-V*%ffithZ-}iVLi> O^r^fcffrS 

iSfliDhWiii>) trio. >t»jrtt^fm^ ^dfc^r^So ioid^flusc-to. *tVx? 

x^h^rijiWfcWOSTSCltfcctoT. 7»v*JQm K JRttSH. &W%iit><nAvx9vxoM<rMfc 

mmz£&T9*xi,z^T^ *9±T>u<7)$m&i.*w ffl&zmw-<b2>zttfx'%z>. wmDn. mztitzr 
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JJK-VT'JXii&.XfiW -,74 y77s.-X77 
■tX? WzMZ, TurjMWV y 74 y?7x- 

WS., fc^lfllO^ XOVXhlZ^XCDtfJ >?cr> 
M-£&W)-ftcr>-<{>T-y7X$:1&mi. Ay 77 s. 
-xjfA yf 7 7 xmizttmZ-£Z>7-*Xb%tLZ . 

*7'i;±7YttW)V7<r>7 7x&&vw&<mmf' 
s-it>ti&, ^«D(i, T—7<mmit--%'\<7m&7 
irnxntztbcnxj yfcom-frftomz. MWZtitt 
7-i>x7v^%m7^x {-ftwm) zmt, 

*-7 <-)VYI,zZ.'>Xftm.Ztirz*7'i73.7 h(T)3tt 
file J: ->xmLZtltz4 •/ 7Xcr>%^W^-th . 

[0038] mm™ *ayxh777s it. m&z 

t>"?T7Vx 7 h^87 7 A /^m^iiittzmz r e a d 
MetaMode 1 W&ZWtfiiit , Z<n)V-^y\t^ 
Jt7 : J3.7V7 7Xcr)im<?>7Y\sX$:. 77X%Mz 
M.Ktz^y : Js. 7Y7 yXCDM^mzftX-tZ Z t izi. 
y, ^717x7 b<7)W$l,Z^Xcr>yt7' : Jx7b7 7 
XVSMZftm- h . «Sff Dii^'J r- x'Srlhtf- 
!». mffiltZUz, #JRtt£, JRtt^litM^JRtt^ 

SggSftfT-if, :*7Vx?}^7*?M yf y?xfc£ 
tW^'x? b7 7Xcr>m\tV>&j yr-ytximfeZ 

ti, zr)u<r)iEmtixmmmffitfX'Zx^z>. 

[0039] V-MiZ<r>WffiVftX'*T>l ( 
*Wi1£thtzMzv->VtfW.fr&Ztih moit, 

4yT-/7xmt cofflX'&mtDttfcmm* t i>tmmz 
x->x^< ^titz*7' : Jx.7 btfrnzfttetmizMM 

[0040]- c 1 I NdxSr^itJ-r^^.^y 

it**? b7 7x<r>mzmh^y=Js.7 vmm&m<n 
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mmcor h ux^^mt 
z<7)7 Fuxiz<?>{m.i l z& 



- tf^^/xx ? h<7)Sl|%D c I N d xfilCii 

wt. *7Vx? w-iyxfyxm^mfLonft 

t)WmU HfS-Tyf -y?*ob j Ndx£g|>9 3T 

- Ifr^TVx^lrftllSU ^TYVXttyi? 
x7V<r>-4yx? yx^m^z^m-fh z i: 

- p r opNd x-4 yr-/7X^E^mtt:>6. M 

tf&mmvmzzfim-fz z t 

- xyiSxfbcom&cD-iyxfyxcTmpwpro* 

# i nc lude<tsdynamo 
TsDynamo PAC (" pac 
//PACLAN/X (V-)V) <T>>fc 



* pNdxfifit&tvc. I 
mMTVUXZftf&l. 

fttzzt 

- m&mwjxbiz&^xy-i ymmfamL. %o 
Mia. mzmmtT-y'xfbmzmi. 
%mta. mmm&mzK'ov xbMzftxt &zt 

- mmxjyrcompgimzM.mfttfzMz. m 
tt^-f yx?yx<nm.*4y : T"/7X-?hzt 

- ^-mm-'mt-tzxt-m^m-thz't^ 
io *-mz^x&.^t>ixrznmhi yr /7XT 

-TVHtycOb j Ndx£$A-f&*\ 'Of^^Xf 

-77H*l<DO b j N d x£M#TtS ^ £ 

JS14c7)-f yx?yxcr>m5.. mftte£lfiV.m(D77XCD 

mimxAyjvm&xhh, 

[0041] TsDynamo. TsOBJ, TsLN 

7x-X?r^j|-rS„ TsOBJ^Xdiv, «8fD 

ioT. tfr^x^K m/thkifvAyiA 

20 yr-y?A-f£C:fc TsLNK;5Xli $ 
ffiD<7)Vy7<7)TbUi/y7'Z'<fo . WffiD(7)4y77 
x-Xlia.— nz77V7--is3ym® (r-7<r>^T 

>jy?) zmi. XAy?. mm.. fci^c++^t 

UiFi9^"C£R8"3\ TsOBJ mt^M^T'-Jj. 7 V 

7JX±^ ^y : Jx7Y7^x^x^^vyx±.^ 
*7"i7x7hte£vm&co-uttzi*ir7'vv 

-ZMtR-fl Z t h . T s L ( T s O 

30 ^7-^x7 v^my7^mwthzt\,z 

z.*)*T)v*ma-rz>zttfX'Zh, 'jy?i2TsOB 

[0042] TsDynamo? 7X)i, ^^4"^ 

?tT/^<J:y^T;i-*^tl.^y^x?h (C + + 

^Txx^h-e&o-t. \my^7'^7'i7x7Ytn 
^) ^w-rs. TsOBj^^'x^htir-f^^-y 

tf, TsOB J^T'yx^b^fiSti, X^XhUy^ 
40 ftc077X&£V : m&n%m&J;V/&fzlMyTv7 

xmz£*)WL%.-thzttfX'%?>. zmzx*). m# 
<»%Mv>3><A<m. i k*r7'x7 vrbco&mcowimz®. 
h z t tfx* &. -fyf7?xtti (if 7 * iv 

[0043] 



h> 



Te st Model" ) 



8/25/06, EAST Version: 2.1.0.14 



(14) WRPPl 0-40087 

25 

TsDynamo NIM("nim", "Neutral Model"); //N I MCDftfo 
TsOBJPAC_ORB(PAC,"ORB"); 

whi le(PAC_0RB. nextObj () ) //£0 R B±X'<7)U 9 £ L 
< 

if (PACJDRBfTYPE") !="0") continue; //OB J s OjfflK. RE L s?).X* 

TsOBJ NIM_BEN(NIM, "BEN") ; 

NIM3EN. setObj () ; B E N<7)fW 

N IM_BEN ("TI TLE" ) =PAC_0RB ("NAME" ) ; //Jltt^^h- 

NIM_BEN("ALIAS")=PAC_ORB("CODE") ; 

NIM_BEN("N0TES",1)="%PX8_C0DE"+PAC_0RB("C0DE") ;//JRtt<7)n yfif^—i' a 

y 

NIMJJEN ("NOTES" , 2) ="OT8_NAME"+PAC JDRB ("NAME") ;//NOTE ScO^Zfi 1 
NIM.BEN("N0TES")+=PAC.ORB("D0C") ; //M^fat tz\±?U y ?s\cr>mi 
NIM_BEN("TITLE")+='Lsuffix"; //M^<7M& 

NIM_BEN("PR0P")=Str(PAC_ORB("PR0PERTY") ,5,6) ; l/WX bV>?5* 

mm 

) 

iif:TsOBJ=TsOBJ;il TsOBJ ^/y'x? h"C(i ; & , <M 
ttffi£ 3 «I fc ***** . 

[0044] 

TsOBJ nira_obj(nim); //a VX by? 9?—UVTs OB J n i m£3t° 

nim_obj.copy(nim) ; //T sOBJn imSrTsOBJn i m_o b j (,ZZ3 

ninLobj=nim; //ni m^JilfSfSS: n i m_o b j (13 h°— 

#gS$il^"Include"7r>f;l/ 
#include"tsarray.h" 
#include"tsstr.h" 
#include"tsrec.h" 

#difine setleft setiosflags(ios: : left) 
#difine resetleft resetiosflags(ios: :left) 

extern int Tracing; 

#define TRACE (arg) if (Tracing) cout « setw(5) «_LINE_«""« arg«NL; 
#define COPL(c) "TsOBJ (" « c->classNdx « ","« c->objNdx « "," « c->p 
ropNdx « "," «c-> lineNbr « ")" 

&k<r>*TA X-T sArray^fy^'J^y bmtU 
const int MaxClass = 128; //9?X<rMU (*7iSx?b<7)4 

const int MaxProps = 64; bfotl O^JStt 

const int MaxKeys = 64; //3f— 7^0 y 9<r)W& 

enum TsPropType{ Value=l, lfi/y7)VX b V yfcom 

Array=2, //%W&$LX b >J 

Block=3} ; //Sl^r** KD£S5>f y 
extern const char* TsPropTypeStrU ; //"enum"£x h >J y^(CSHW"4 

inline const char*cvPropType(TsPropType t) 
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{ 

return TsPropTypeStrft >= Value && t <= Block ? t:0) ; 



class TsDynaino; 
class TsPropValue; 
class TsObjectlnst; 
class TsObj Key Array; 
class TsObjlnstArray; 
class TsModelObj Array; 
class TsPropDef n Array ; 
class TsPropDef n; 
class TsObjClassDefn; 
class TsObjClassArray; 
class TsLinklnst; 
class TsLinkKeyArray; 
class TsLinklnst Array; 
class TsModel LnkArray ; 

jfA+^-A y?7±-X?yX 

TsDynamo?7X 

{ 

friend class TsOBJ; 
friend class TsLNK; 

class TsObjClassArray* oca; /W?tfWt/xx 9 V 9 7Z.<7) 

* 

class TsModelObj Array* moa; //tf^^x? 
class TsLnkClassArray* lea; //* 9*&ffW)*) V9 9 
class TsModelLnkArray* mla; //^Tflcr>V>9^ 
TsDynamo (const char* metaModelName, const char* model Name) ; 
TsDynamo (const TsDynamoS d, const char* modelName); //W\—C0^9 

--TsDynamo () ; //fx h 5 9 9 

void displayO ; 1/9 A ^fi 

voiddumpO; //^x?h, i9.«tt. i 9. 7t-7 7 M(0 
BS) »sffKr?)\,A*—V ne- 
void writeNDF(char* ndfPath); UfAttWk. ^Rffi 
int readMetaModel (const char* f i leName) ; //^7i?x. 9 hCO^tfrft L 

void define (const char* obj, const char* prop, char* key, 

TsPropType prop.Type, int prop_Size) ; 
void freezeO ; 

TsOB J9yMZt5WXii, TsOBJ^yx?h * fUCOA >tv 9X*'fto <I k fci. 9 . ^t^/yx 
tt, />f « ^ / y x ^ h ^7 H 1/ V x ^ ?MC7?*;VfS<ri#T#S. 

h^feft^O^y^T**. TsOB JfclBKJ:^ N [0045] 

classe TsOBJ //b&m&miDftlZ7}*\'A+&iZ#MA yrvfAtt 
{ 

TsDynamo* dyn; //T-9Z9A ^ftltZ*:*/ h-f&fztb<7)#A >9 
int classNdx; 
int objNdx; 
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int propNdx; 

lineNbr; 

int iterNdx; //RfS^ JH*-£flc<*)>f >y?X 
int error; //>f\&T FUa> ¥*VT 

TsOBJ(TsDynamo& aDyn, 

int aClassNdx=l, 

int aObjNdx=l, 

int aPropNdx=l, 

int aLineNbr=l); 
fyX&HZVm&Zt t&^TsOB JayxYy?? 
TsOBJ(TsDynamo & aDyn, 

const char* aClass, 

int aObjNdx=l, 

const char* aProp=l, 

int aLine=l); 
T s O B J a t° - co a y x h y ? ? 
TsOBJ (TsOBJ& c) ; 
TsOBJfXf7?? 
-TsOBJ () { } 

TsOBJ^LT^ 'J h£7 F VT^fh tzthomfc 

TsStrS getVO ; 

TsPropVal ue* getPropVal ue() ; 

TsOb ject Inst* getObjectO ; 

TsOb j KeyArray* getPr i meKey Array ( ) ; 

TsOb j KeyArray* getSecndKey Array () ; 

TsOb j I nstArray* getOb j I nstArray () ; 

TsModel Ob j Array* getModelObj Array () ; 

TsPropDef nArray* getPropDefn Array () ; 

TsPr opDef n* getPropDef n ( ) ; 

TsObjClassDefn* getObjClassDef n () ; 

TsOb j CI assArray* getObj CI assArray () ; 

char* getClassNameO ; 

char* getPropNameQ; 

int setObj (const char* aClass, int aObjNdx=l); 
int setProp (const char* aProp); 

int setValue (const char* aProp, int aLineNbr, const char* aValue); 
int setValue (int aLineNbr, const char* aValue); 
int setValue (const char* aValue) {return setValue(l, aValue) ;} 
int setValue(TsStrLisf aValue); 

TsStr get Value (const char* aObj, int aObjNdx, const char* aProp, int 
aLineNbr=l) ; 

TsStr get Value (const char* aProp, int aLineNbr=l) ; 
TsStrList getList (const char* aProp) ; 
TsPropType getPropTypeO ; 

int findObj (const char* aObj, const 
char* aProp. const char* aValue) ; 

TsOBJ& operator!) (const char* aObj, 
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int aObjNdx, const char* aProp, in 

t 

aPropNbr) ; 

TsOBJS operator () (const char* aObj, int aObjNdx. const char* aProp) ; 

TsOBJS operator () (const char* aObj, char* aProp); 

TsOBJS operator () (const char* aProp, int aLineNbr); 

TsOBJS operator () (const char* aProp) ; 

TsOBJS operator () () ; //op()T12^&iilt£*l&^ 

TsOBJS copy (TsOBJS b) ; //T s O B J £ 3 t°-^& 

TsOBJS operator^ (TsOBJS in) ; //JH4® £ 3 t°--f h 

TsOBJS operator^ (const char* in) ; /IX Y V y?fe*a 

TsOBJS operator+= (TsOBJS in); //WSMZfattth 

TsOBJS operator+=(char* in) ; l/X Y >J V^^m^th 

int operator! () {return error;} l/m\^*&&tz\m 0 ^T#^&T'£>I> 

operator TsStrSO {return getVO ;| //£T£>S t r ops COT ?t 4 7 
op<7)^$ 

[004 6] m%*W)fc$htz#). m\m*\/>XZ * [0047] 

»^c^>yr£a^a^"nuir'^ y*- 

int firstClassO ; 
int firstObjectO ; 
int firstPropertyO ; 
int firstLineO ; 
int nextClassO ; 
int nextObjectO ; 
int nextPropertyO ; 
int nextLineO ; 

}; 

mm®. 

enum Cardn {CO.l, CL1. CO_M, C1_M} ; 

extern char* Cardn_str(] ; //Cardn Zt*X h £&&tt %>tz$><7) 

xhv >yn&to 

*~m&(7)mi:V-bt2>tz£><D?5X4 yTv?Xt$£rf*7itx?h 
4>T*y7X 
struct Clob 
{ 

int classNdx; 
int objNdx; 

>; 

# * rfrficoT- fHyf-rvvb -tit&xn-fe [ o o 4 8 ] 

"enum M £f *X NCJHW htztiWX V V V7%&k 
const char* TsPropTypeStrQ = <"??" /'Value"/' Array", "Block"} ; 
classe TsPropDefn //PropDef nAr ray (,Zi£&tl& 

{ 

friend class TsPropDef nArray ; 
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friend class TsObjectlnst; 
friend class TsOBJ; 
TsStr propName ; 
TsPropType type; 
int length; 
TsPropDefn (const char* aPropName, TsPropType aType, int aLength); 
— TsPropDefnO {\ 

h 

TsArray (TsPropDefn* , TsPropDefnPtArray) ; //^-^£#5&ffrf* 
TsPropDef nArr a.y?yX 

{ 

friend class TsObjClassDefn; 
friend class TsObjClassArray; 
friend class TsObjectlnst; 
friend class TsDynamo; 
friend class TsOBJ; 
TsPropDefnPtArray Prop ; 
TsPropDefnArrayO : Prop (MaxProps) {} 

-TsPropDef nArrayO /mizX^Xm^tlh^r'Jx 9 V SrfflRfc-f 

5 

void di splay (TsOBJ* at); 

TsPropDefn* define (const char* aNarae, TsPropType aType, int aLength); 
TsPropDefn* insert (const char* aName, TsPropType aType, int aLength) ; 
int getlndex (const char* aName); 
TsPropDefn* find (const char* aName); 

>; 

int TsPropDef nArray : : get Index (const char* name); 
m&%Zi>tbb. PropDefn (afcJiNULL) 
TsPropDefn* TsPropDef nArray : :find (const char* name); 
SS*r/-h$il)tTsPropDe f n A r r a y fcT s P r o p D e f 

TsPropDefn* TsPropDef nArray : : i nsert (constchar* aName, TsPropType aType, 
int aLength) ; 

®MT sPropDefn Zjmtl. Rtt«#X& LX^&fri:? fimZt 

h 

TsPropDefn* TsPropDef nArray : : d i f i ne (constchar* Name , TsPropTy peType , 
i nt Length) ; 

class TsObjClassDefn 

< 

friend class TsObjClassArray; 
friend class TsOb j I nstArray ; 
friend class TsObjectlnst; 
friend class TsDynamo; 
friend class TsOBJ; 

TsStr className; W/yx 9Y? yXCD^fft 
TsStr parentName; /mM&kftth*?**? b% 
TsObjClassDefn* parent; //Wt&Wt 
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TsPropDefnArray* pda; //JRtt&^r#ffi868 
TsStr pr i meKey Name ; 
int pri meKey PrNdx; 
TsStr secndKeyName; 
i nt sec ndKey PrNdx ; 

TsObj CI assDefn (const char* Name, const char* ParentName=0, 

const char* Prime=0, const char* Second=0); 
-MsObjClassDefnO 

void TsObjClassDefn::display(TsOBJ* at); 

}; 

TsArray(TsObjClassDefn* , TsObjClassDefnPtArray) \/l¥-V^mcfh 
TsObjC 1 assArray77X 

{ 

friend class TsOBJ; 

TsObj CI assDefnPt Array CI ass ; 

TsStr metaModel Name ; 

int usageCount ; 9 ^f^ifk^th 

int isFrozen; //0 = f i ndCi^Sob j/p rop d e f 

TsObjClassArray (const char* name) : CI ass (MaxC lass) ; 
-MsObj CI assArray () ; 

void releaseO {if (— usageCount==0) delete this;} 

void display (TsOBJ* at); 

void writeNDF(TsOBJ* at, ostreamS ndf); 

void resolveKeysO ; 

TsObjClassDefn* define (const char* name); 

TsObjClassDefn* d if ineKey( const char* obj, char* key, const char* prop 

); 

TsObjClassDefn* insert (const char* name); 
TsObjClassDefn* find(const char* name); 
int get Index (const char* name); 

>; 

mm. i # 1- h 9 yx&& x tx*-*tt«M > r v 9 * * antra 

*7z/x 9h9 y*CD%mJ8<om<D4 y ?*£&3trS 
i nt TsObj CI assArray : : getlndex (const char* name) 

TsObjClassDefn* TsObjClassArray: :find (const Char* name) 
9 V- h Ztitt^i?* 9 h 9yx<nmz, *7z/x 9b9?A<7) 

TsObjClassDefn* TsObj CI assArray :: i nsert (const char* name) 
*7Vx9Y9yX<7)$kV>*X\ *7Vx? V9yX<?>mmm%MkL. S 

TsObjClassDefn* TsObjClassArray: : define (const char* name) 

TsObjClassDefn* TsObjClassArray: :defineKey (const char* obj, 

char* key, const char* prop) 
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m&mwyxnmm 

c lasse TsPropVal ue //#Hgtt HJ V / 

{ 

friend class TsObjectlnst; 
friend class TsOBJ; 

TsPropVal ue* next; //£{fJStt#iI$[$iX£ 

int lineNbr; //if AfflOV-b7 r^f/P 

TsStr v; //X h U y/^f 10 iTfiS^ffi^^^ 

TsPropVaiue(int line_Nbr, const char* val) 

— TsPropVal ue(){} 

void di splay (TsOBJ* at); 

void dump (TsOBJ* at); 

void writeNDF( TsOBJ* at,ostream& ndf ) ; 

void set (int line.Nbr, const char* val); 

TsStr get (int line.Nbr); 

operator const char* () const {return (const char*)v;} 

>; 

void TsPropValue::display(TsOBJ* at) 

void TsPropVal ue:: dump (TsOBJ* at) 

void TsPropVal ue::writeNDF (TsOBJ* at, ostreamS ndf) 

void TsPropValue: :set(int line_Nbr, const char* val) 

void TsPropValue:: set (const TsStrList* val) 

yj y^x'm&mzm&m? 

TsStr TsPropValue:: get (int line.Nbr) 

my * 

TsStrList TsPropValue: : get () 
^//x 9 hco-f yx? yxa>9 yXCO^M 



[0050] 



TsArray(TsPropValue* , TsPropVal uePtArray) ;//spcial iseg|@le gabarit 

class TsObjectlnst //PropDefnAr raytTff^yf7^ 
{ 

friend class TsOb j I nstArray ; 

friend class TsOBJ; 

TsPropVal uePtArray Prop; 

TsObjectlnst () : Prop(MaxProps) {) 

--TsObjectlnst () 

void display (TsOBJ* at); 

void dump (TsOBJ* at); 

void writeNDF( TsOBJ* at, ostreamS ndf); 

TsPropValue* setValue (TsOBJ* at, const char* val); 

h 
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ft 

TsArrayUnt, TsObjNdxArray); //y-*Jt:¥H&t?i> 

class TsObjKeyArray //^-JRtteOfiTV- h SflfcO bjNdxs 

{ 

friend class TsOb j I nst Array ; 
friend class TsOBJ; 

TsObjNdxArray objNdx; //♦♦rttaMtifcliZ^MfeWl 

dichotomique 
TsObjKeyArray (): objNdx (MaxKeys) {} 
— TsObjKeyArray () {} 
void di splay (TsOBJ* at); 
void insert (TsOBJ* at); 
int find (char* val) ; 

}; 

TsArray(TsObjectInst* .TsObjectPtArray) ; I I ?—ttWlXC$ h 

class TsObjlnstArray I/O b j N d x \Z X *M >fv ?X$iltz*7 

{ 

friend class TsModel Ob j Array; 
friend class TsOBJ; 
TsOb j KeyArray* pr i meKey Array ; 
TsObjKeyArray* sec ndKey Array ; 
TsObjectPtArray Obj; 
TsObjlnstArrayO :Obj (MaxKeys) 
— T sObj InstArray () 

TsOb j ect I ns t* setObject (int objNdx) 

void di splay (TsOBJ* at); 

void dump (TsOBJ* at); 

void writeNDF (TsOBJ* at, ostreamS ndf ) ; 

void updateKey (TsOBJ* at); 

>; 

void TsObjlnstArray:: updateKey (TsOBJ* at) 

[0051] 

TsPropValue* TsObjectlnst: :setValue (TsOBJ* at, const char* val) 

tfmyyx? b<7)$k<7)?jzcomm 

TsArray (TsObj InstArray* , TsObjlnstPtArray) ; l/y—is£¥tfeiti~& 
class TsModel Obj Array lie 1 ndxUot^fyfv 

< 

friend class TsOBJ; 
TsStr model Name; 
TsObjlnstPtArray Class; 
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public: 

TsModelObj Array (const char* Name) :Class(MaxClass) 

—TsModel Ob j Array () 

void display(TsOBJ* at); 

void dumpCTsOBJ* at); 

void writeNDF(TsOBJ* at, ostreamS ndf ) ; 

Positionner le tableau courant d' instance d'objets avec L' index de c 
lasse TsObjlnstArray* setClass(int classNdx) 

>; 



10-40087 



9yX<M >Tv7X(,z£t)*7'iSx7 Y<T>4VX9> 

yx^mm-f^yxx-hh. ^Tfrwjytwjy 
■7<r>4yx?yxx-hh* vy?v>?yx<»im±. y 
yjtfmmWhz. bff-x-% hirfHs. ? bCD?yX£ 

[00 5 2] Vy?n*7'3sx9MtM'#*7'!Sx?b 

rtoj totX/ff romj <7)K-y r-/PijJ:t>'Mtl> 

Uy?fcftlBSft*T-*B*tt. ■*7 s Jx9Y<?> 
JBttfc LTttfcft* «t 0 1 tr L^C ++wfSmtft$ 
ft*, y-btfftfc-f yTv^^m-^tttJ^Tifc 

[00 53] liflfD^rjyxh???^ V-)V<r>*5 

[0054] yy^tt. yy^tioTfiNasftitr 
Mtfifx ? v hl-owmni t**-?* *<to t-r*Jt 

ft. MW^i^b^^fci^fiie^^x^ h^v 
0i*'fifx9V<iy 3 j t 'v9Xc 1 NdxMt/objN 

'J^fi^f'yWclNdxiii^obj* 



10*Ndx£#tf„ 'Jy^t^y'x; hfclSia. JStt£*> 
[0 0 5 5] Z-rxTrty-isx.? Vmz>)y7*-0<hk. 

tui , u y ? <r>*-<rm&btfv -bZtih.&jy 
j?byy^<?)jfe^*^y-b§ft*. y^w??^ 

if £8H&*-**fiOM yf7 WpropN d xfc*tr 
* -^Bttfc J: tfHtt<W:/:7 * -/I/ h'£tl^<* £ i: ** 

-r*i0T\ -ftmmi$iivvxv0)w<m}.wmmz 

=5:*. 

[0 0 56] fci^^tf/Wtf^tS^^tf/l' 
flUb cr>ttfem& Zb&ZbtfX'Z&7V-v i/'flBt 
30 «i, lagtii. ^l^#-&:*:/i;x?h£ffl^l>£ 

b£n.^V&-fti)ibVy'7ZM&frXbUy> ; -r*~-£ 

hSftTv^atr-sfta^T^N i mst^m-t 
«fcftt. Etas^H^^fcffiflH-*. 

[0057] 



# include "tsdynamo.h" 

//"Cardn enum"tf)ffik * h fcOttJSBSffifc t hfztb<T)X h 'J 
char' Cardn_str(] = {"0:r,"l:l","0:m","l;m"( ; 

y>?o?5.*<9£38 

classe TsLinkClassDefn:TsObjClassDefn 
{ 

friend class TsLNK; 
friend class TsLinkClassArray; 
TsStr fromVerb; 
TsStr toVerb; 
int fromCINdx; 
int toCINdx; 
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Cardn f romCardn ; 
Cardn toCardn ; 

int toKeyPropNdx; UJ[W±9 h*>U yrnm&tiWfmit 
TsStr toSetMbr; 
TsStr fromSetMbr; 

TsLinkClassDefn( const char* aClassName, 

const char* aFromVerb, 

const char* aToVerb, 

const char* aFromClName, 

const char* aToClName, 

const char* aFromCardn, 

const char* aToCardn, 

const char* ToKeyPropName , 

const char* aToSetMbr, 

const char* aFromSetMbr) ; 
void display(TsLNK* at); 

}; 

void TsLinkClassDefn::display(TsLNK* at); 

TsLinkCl assDefn^X: 
classe TsLinklnst: TsObjectlnst 
{ 

int fromCINdx; 
int fromObjNdx; 
int toCINdx; 
int toObjNdx; 
TsLinkInst(TsOBJ& aFromJsOBJS aTo) ; 
—TsLinklnst () (( 
void desplay(TsLNK* at); 
void putNDF(ostream& ndf, TsLNK* at); 
TsPropValue* setProp(TsLNK* at, const char* val); 

h 

void TsLinklnst: :display(TsLNK* at); 

TsArray(TsClob, TsClobArray) ; //y-i/SrttJg-ftt* 

classe TsLinkKey Array f^yx? hW- 

m&comiz£*oXV-bZtltz I nkNdxs 

{ 

friend class TsLinklnstArray; 
friend class TsLNK; 

TsClobArray linkNdx; //<HWC3M*fcl±Z»iaJW 

TsLinkKey Array () :linkNdx(MaxKeys) {} 

TsLinkln stfyZ : 

— TsLinkKeyArrayO 

voiddispl ay (TsLNK* at); 

void insert(TsLNK* at); 

int find (char* val) ; 

>; 

void TsLinklnstArray: :up<MeToKey(TsOBJ* at); 
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void TsLinklnstArray: :updateFromKey(TsOBJ* at) ; 

TsLNk;^ ^fv^7x-x?5x 

TsLNK^^XliTsOB J 7 y Xfr t>U!£f $> . T * tb'^-v g 
sLNK^^X^-MHOW^tgttfctt, >^tf/H*l« [0 0 58] 

'J y?£i>f&*Ttt'i%o:t7y'x:7 MSS<o«i^ife{i* 

int TsLNK: :setLink (const char* aClass, int aLnkNdx) ; 

//<&R?a*itf . y <r>v 

int TsLNK: :setLink(TsOBJS from, TsOBJS to); 

W£<?> yy? rtsMMiaHn y * -y h 

int TsLNK : : resetLi nk (TsOBJS from, TsOBJS to): 

B*yy?<o*-y«yhfcK*art- 

TsClop TsLNK: :getTarget() ; 
TsClop TsLNK: :getSource(); 

sni> y y^«wcov^r<oy >7<tm vr-y 9xa$.if*-m& 

int TsLNK: :findLink(const char* aLnk, const char* aProp, const char* aVa 
1): 

Sftcojf TV'*? h*>r yf7 7x£\ %<nK? wm yf7?xi^ 

void TsVtr Key Array: :insert(TsOBJ*at) 



^IPFPl 0-40087 



[0059] «Rfcft7 -f Kffl^Wa- KESfc? 
C fc 1 IXC + + WfST'te k 3 - H 5r S§£ JclilfrK- h iT 

<uffirfe*v^. 7 f y5 < )'^*flffl-r*^raai7^-;PK 

I*ISfc)Sri»4. 7 4 -;t- KB#W>:i u 

'J S -y ^fifcWJ <J:(:7n/7Vli7Uy-/> 
. U3-Ffc*<y)|B*?fc<y^jE^£o< 

struct TsFieldDescr 



*U3-H*7*y-bU*07-f-/H<tA* Latta* 

30 [0060] TsRe c?7X£$ffl-f5*§£\ t s r 
ec. h7-M/M2:. l/n-KfO^^-yl'KH^f- 

x ? t P a- Hiaa 1 offJGRffi £ t tlxhemHtrxT 

[006 1] IWioCTsRe c?5Ate. t»WDO 
IW<07r-f;PtJj:tf. 7*y ?S/V>«jSBJR(c.1:^TK 

40 ££#•?& 4. 
[00621 74-^ 

enum TsFieldType{REC,BFR,LIT,FLD,VAR,END> ; 
U3- Htf5Eatt«3toa"C*& . 
[0063] 



{ 

TsFieldType 
char* name; 
int length; 



type; 
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>; 

#define MaxRec(len) const int RecBufSize=ten; 
#define XRec(name) extern char RECBUF##name 0 ; ¥ 

extern TsFieldDescr name[); 
#def ine Rec (name) char RECBUF##naine(RecBufSize+l] ; ¥ 

TsFieldDescr name[)=<{REC, #name, OM 

<BFR, RECBUF##name, RecBufSize} , 
#define Lit(string) {LIT, string} 
#define Fld(name, len) {FLD, #name, len} 
fdefine Var(narae) {VAR, #name> 
#define End {END} I 

#define GetFld(rec,f Id) getfld(rec, #fld) 

#define SetFld(rec,f Id, val) setfld(rec, #fld, val) 

mm. *mx* t^xx/y ^^^r^Bym a sc i i fcaaw* 

char*itoa(int value, int base=10, int size=0, char fill="); 

asci i zmmzm^m 

i nt atoi (const char* p) ; 

int match(char* buffer, TsFieldDescr* f); 

TsStr getfld (const TsFieldDescr* rec, const char* name); 

void se tf 1 d (TsFie 1 dDescr* rec, const 

char* name, const char* value) ; 

TsSt r9vX <»CjaW-&) mkhtto? 
inline void setf 1 d (TsFie 1 dDescr* re 
c, const char* name, const TsStr& va 
1 

u e ) ; 

char* icon s fifcsawi sr t *> & o y 4 ->v h oawu L 

inline void setf Id (TsFieldDescr* rec, const char* name, const int value) 
{ 

setfld(rec, name, itoa(value)) ; 

} 

void clear (TsFieldDescr* rec) ; 

void display(const TsFieldDescr* rec); 
XRec(IO_TAF); 

"enum TsFieldType"^ 75:cha r* yV^K^it 6 
char* aTsField Type(const TsField Typet;) 

inline char* GetRec(const TsFieldDescr* rec) {return (rec+l)->name;( 

JWBfcfc* J: 3 I 0_TAF*aft4 
XRec(IOJTAF); 
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[00 64] J¥Xh'jy/;7XTsSt rCOgft's * [0065] TsSt r?y X<7)&m$. CSHi^c 
7^7HMsstr. h(i. ZhtbXltWjX^ h a r*£^X h U 

X h 'J V^f-^l*«ttf 4T s S t r ? 5X<0g 3^f^H^ h U y^«fgfc<7)Jt« 

a#. u 7n vfcDm&izfflb&ft [0066] 

#def ine NL "¥n" 
#def ine NL2 "Mn" 

#define SEE(x) " "#x": "«x 

// Usage : cout«SEE (abc) « 

SEE(xyz) ; 

TsStr^X 

{ 

char* P t ;/mmzw\ 9 ST btitzxtnmsft 

size.t ln//3S^E^r~^^ 

size.t bs; ///ny?SI(^h7rt7Maif) 

TV *!V h >y 9*TA X£ i>oST s S t r ^ 
void Defaults (){bs=16; ln=0;pt=new char(bs+l) ; pt(0)='¥0';> 
public: 

c h a r h »J y/ti o t WC$tlST s S t r ? 
TsStr (const char* cp) ; 

T s S t r \tZXr> XW&it^tlh T sStr^ 5 
TsStr(const TsStrS b) ; 

T7^hTsStr^7^«n 
TsStrO {Defaults ();> 

*Sf-^/n v 9*TA X£ io£<7)T sStr^ JXZfmtl 
TsStr(int len) ; 

c h a r'X^X V x ) yf&XtfXZitbtoXMtrC. TsStr^7^ 

TsStr(const char * cp, const int len); 

— TsStr(){delete[)pt;> 
TsStr = a T s S t r ?5X£#J»5STI> 
TsStrS operator^ (const TsStr &b) ; 

TsStr = a char* s t r i n g? yXtm*) ¥Xh 
TsStrS oprator= (const char* bpt) ; 

TsStrS oprator=(char b); 
|@TsS tr^7X + TsSt rtyX^Wfet h 

TsStrS oprator+ (const TsStr &b) const; 
mT sStr^X + cha r h U y^jlfcrt* 

TsStrS oprator+ (const char* bpt) const; 
i@TsSt r^7X^TsSt r?5XteS&ftt£ 

TsStrS oprator+= (const TsStr &b) ; 
i@cha r'X^X h V y^Ts Str; ^ttlttJ 

TsStr& operator+= (const char* bpt); 
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-£^£T s S t r ^ 5XtJSf«-4 
TsStrS opera tor += (char b) ; 

TsStr?7^char^b'J^C^t5 
operetor char* () {return pt ; } //^ZWlMM-^ 
TsStr& y X<?)-j£V 7 TV>XZ-fec h a r h U y^fcffld 

t* 

operator const char* () const {return pt;} //^&^Sk% = f- 

Ts S t rm^TsSt rfyXktmi- h 
int operator== (const TsStr &b) const {return strcmp(pt, b.pt)==0;> 
int operator ! = (const TsStr &b) const {return strcmp(pt, b.pt)!^);} 
int operator >(const TsStr &b) const {return strcmp(pt, b.pt)> 0;} 
int operator>= (const TsStr &b) const {return strcmp(pt, b.pt)>=0;} 
int operator< (const TsStr &b) const {return strcmp(pt, b.pt)< 0;> 
int operator <= (const TsStr &b) const {return strcmp(pt, b.pt)<=0;} 

TsStr& yX% ch a Vj&X h U >?tiAMtl 
int operator== (const char* b) const {return strcmp(pt, b)=0;} 
int operator != (const char* b) const {return strcmp(pt, b) !=0;} 
int operator> (const char* b) const {return strcmp(pt, b)> 0;} 
int operator>= (const char* b) const {return strcmp(pt, b)>=0;} 
int operator^ (const char* b) const {return strcmp(pt, b)< 0;} 
int opera tor<= (const char* b) const {return strcrap(pt, b)<=0;} 

char^Xh'jymsSt rtyXbRfflfth 
friend int opera tor= (const char*a, const TsStr Sb) {return strcmp(a,b.pt 
)=0;} 

friend int operator != (const char*a, const TsStr Sb) {return strcmp(a,b. pt 
)!=0;> 

friend int opera tor> (const char* a, const TsStr &b) {return strcmp(a,b.pt 
)> 0;} 

friend int opera tor>= (const char*a, const TsStr &b) {return strcmp(a,b.pt 
)>=0;} 

friend int operator< (const char*a, const TsStr 8b) {return strcmp(a,b.pt 
)<0;> 

friend int opera tor<= (const char* a, const TsStr &b) {return strcmp(a,b.pt 
)<=0;} 

TsStr? yXWtzfrcOX h V ytf&mBtt 

friend ostream& operator «(ostream& s, const TsStr& a) {return s « a. 
Pt;> 

TsStr? yXCDtztbCDX h »J VfXIyffltt-yA V* 

friend istreamS operator »(istream& s, TsStrS a); 

TsStr? yXCOc h a r*1C&X V U >7<MM V? 

friend char* getPt (const TsStrS s) {return s.pt;} 

TsStr? yXCOX h U y?g£WPHtit 

friend int strlen(const TsStr& s) {return s.ln;} 

$>&*y*vhX\ Ts S t rfyXCO-X^ZUfrftt 

friend char ch(const TsStr& str, int offset) {return str. pt (offset] ;} 
};// TsStr;7^»7 
XMiCOmfeTX'&mZtl&fJXilzttryXtiXVC * T s F i leReader.TsFi leWrite 
7T4)Wimtf%L<. r.TsDataReader. TsDataWrit 

[0 0 6 7] TsFi 1 eA&J)?yX<Dfem e r ? ?X0»att*O. Ztlb? JXlZ* 0. 

M/-7r^t sf i 1 e. hli % TsFile, * 50 )Mkh/ftJ)im£*T&\&1-&Zttf'V$i>. 
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[0068] TsFi lefyxizk*)^ 7t4)V*M *aJBA^Wd^«fc:fBPMfc;Sft4. 
y^^Wffl^SUNIX (fcotr&X/OPENafctf [0069] ZCO$7*Mtlz£t)fttfLZtL&*<r)MV) 

^h^^^fiJilXfxh^^^fciDJJHSiifi^T, * [0070] 

Ts F i 1 e 

< // 

FILE • const fp: llv rA)Vi£AVf 
TsFile( //3yXh7^? 

const char *path, //7 r 4 /l^T^-fe^HU 

const char ♦mode = V //ffl^-H 

); // 
— TsFileO; //"rAh??? 
int flush () ; //ft"fefT0B§ft« ( s ) 
char *gets(char »s) ; //fi^ffi LB#3Sft?5 ( s ) 
int puts (char *s) ; Affi ( s ) 

int P utc(char c) ; //m*U&*MKR < c ) 
}; //TsFi 1 etyXfeJ 

// 

Ts FileReader??* //y rA)W)yA ycDzHfrltiL 
{ 

TsFile *f; 

char * buffer ; 

TsFi leReader ( //a >X h y 9 9 

const char *path, 

int buffer_size 

); 

—TsFi leReader () ; //fX Yy?9 

char ♦getnextO ; //0KV>T-?*$ifr&t 

); 

Ts F i 1 eWr i t e r 7yX //yj y*y r 4 /M*lfc:##&tf 

{ 

TsFile *f; 

enum{NEW, APPEND}; 

TsFi leWri ter ( //a V X Y y 9 $ 

const char *path, 

int new_or_append 

); 

—TsFi 1 eWri ter ( ) ; //fX h y 7 9 

int putnext(char • buffer) ; //&<Dr— 

int putnewlineO ; /mm A V<n1Z¥*%%ih£s 

}; 

TsDataReade r 7yX 
{ 

S i ng 1 y _ 1 i nked_ 1 i st (TsStr ) data list; 
TsDataReader () ; //nyxYy?? 
— TsDataReader () ; //fX by 9 9 

void loadfile (const char •path): //7 7 V X brttD- Yth 
SinglyJinked_list(TsStr)&getlist(); //VZbfaifflX 
void printO; //VZbiWfflti 
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>; 

TsDataWr i t e r?yX 
{ 

Singly_linked_list(TsStr) datalist; 
TsDataWr iter(); //ayxhyff 
-TsDataWri ter () ; //r X r- y ? 9 

void setlist(Singly_linked_list(TsStr)& L); //S^&^iDtobt'J 

void dumpf i le(const char 'path) ; IIV r A Mpb U X V £iti;>rf & 

void printO ; //VX h SrfflBWS 

>; 

net 9. ±T>vzmmizm-tz>zbm-zz>. ? uDFmmzxmmmmxb&ztte, fxhf 

; Ef;^^S-C'^T^2:*-rii:A i T'#i.o 7r4/l-N (±. TXhmr^<n&%iMmh%&lZ®mX'bh. 

D Ft J: 0 , Mttffli: tt *T)V<r)$k7fi?4 y<n 7 V ■/ ^BBJMHi. »**^*fcttlHI-*-*Jfc*>. 

? 7X, *7Vx ? h , Kttti £ fc ^r^lftri; -y i^ftS*)*, l^^TOCfe^Tf 

* . x b &mm L3Slff*4fc*>te7 r 4 /UN D F fcftflW- 

[0071] istiD^y^x^b (m-**7s?x. izttf?£&. 
9vi witih ) a, tT^zmrtz z t & , * 20 [ 0 0 7 2 ] 

f*XY COffijOftffiOtZVXDAll yy^)V<DV : JX ? 
TsBuf fer?7^ 

< 

char'buf; //U : JX?<0#<1 >t 
char* cp; //SftO^OfiM 
int bufSize; //U : JXf<gS. 
int lineNbr; //A^J7r-fyH*I^a^5-f 
int indent; //X^-XHiV/'ttliiX^.-Xt LX®.Z.h9Zf ( 
1*>£>8) 

int rescan; // 1 : fflaffl LX* 77*, U^^^HrtSSrttffl-f 4 
FILE* fd; //nyxYy?f\ l zZ.'>xmtrtlh?Y4)V 
TsBuffer (const char'aFilePath, int aLen = 256); 
—TsBuffer () {delete D buf ; } 

int TsBuffer:: match (const char* v) 
WRyJ >%TXh 

i nt TsBuf f er : : i sComment ( ) 

int TsBuf f er : : scan I ndent () 

-\n<Df&£ 
int TsBuffer ::readBuf() 

rdeiimj t,zi.-)xm.^ixtzm^m^L 

char* TsBuffer: :getWord (char del im) 
intTsBuffer: :scanDec() 

NDF*T/W5R*aSU ^tt^y'i^KOtt 
TsReadNDF^7^:TsBufferl/^?li7of;heilS 

{ 

TsStr metaModelName; 
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TsStr model Name; 
TsStr obj Name; 
int objNdx; 
TsStr propName ; 
int lineNbr; 
char* value; 
TsDynamo*dyn; 
TsOBJ* at; 
int status; 

TsReadNDF (const char'aFileName) ; 

h 

NDF7r^ )V<7M*>}& L&£X/y<4 1rtt7*Jx 9 h <Du~ P 

[0073] TsReadNDF: : TsReadNDF (constchar*aFi leNa *[0074]NDF7r4 )W>* 9^rfiV 
me) :TsBuff er (aFi leName) NDF7r^ }V<WX?<?>7 * - V v h IZ X 0 . * 

li*^f^/i*to i£R54 y« r *J Ttt**. * [0075] 

*NDF rev 1.0 //7 r ^^SrlSK^Sfc^iiS??^ y 
MetaModelName:metaModelName //tf/WRASl UCi#g&;>< ^tfW 

Model: modelNarae //^ tt*^x ? h £ftj£*t5 (^r/^^ffs ^ 

Object: Class, ObjNdx /M7y'x^ b JMtl) (?7*s ObjNdx 

propld: value //*«-ttOJRtt*»€'ti 

propsym: Ji:/n 7 ? rtT*M*tt&T4 

propNdx: value. . . yfotz O—OtfDffi 

Link: InkName, InkNdx //Uy^tffrtW"* (*»*5 ±tPJ y?C7H yf * 
?X) 

FROM: Class.objNdx //*RjS*SK3&t4 
TO: Class, objNdx 

//"metaModelName.mta"7r^;Ki:. +4fit$B^r^N I ML PX83:£0!XX* 

[00 7 63 //^r>T"modelName.ndf" 7 r >f /Pfctitt ^Object: ATT, 1 

&ifi%\\ DATY: DATE 

[00 7 7] //M: NOTES: 

•NDF rev 1.0 1: %PX8_C0DE bdate 

MetaModelName: nim 2: %PX8_NAME birthdate 
Model: ndf sample 40 PIC: YY-MM-DD 

Object: BEN.l SIZE: 8 

TITLE: My Object X TITLE: birthdate 

NOTES: Link: BEN1.1 

1: $>X8_C0DE myobjx FROM: BEN, 2 

2: EPX8.NAME My Object X TO: ATT, 1 

Object: BEN, 2 mfatLX. 7V viSiK&tzMZ, A y?-7V v 

TITLE: another obj h*H&7a7VXf ymBTt4ft< jtfflB (Mitf 

NOTES: C + +SCO) Srffiffl^S. *ffiBlC cfc6T-**T/U0 

1 : 2PX8.CODE nother ft OftV^fcOV vC^lfflRE^ J: 0 . *R*>V 7 h 
2: OT8.NAME another obj * 50 x 7X¥7-7UD>f >^-^5h' l>f 4 Sr^ffifcH" 
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GmKmm&twbMz-tz z t wx-% h . &m 
z t wx't htmx%< m*T/u?>ikmi>*imx'hz, 

•ffr^ffi&tTilsZffiflXiiKZb. £>l>Ui, & 

iiu 7 7 \syis*Mzm?t.iibztihn«w ? h^x 

TX^V->V (CASE ) fflt bTf£ff$ftfdylRfc):T 
-?£Bl7*- 7 7 h (CD I F) &£\ &Jg#<7)fe£> 

wmmzmmz z t #x-% & . vommm 
m xnmmizmi-mmm^tz t tfx-zh-^. 

3- Y=>A 7*5 'J fiSfim«lT'J>-5»cO-C. May U -y 



10 
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»#>7v -y itmmmmmnmirv^vtfiMiz 

[0 1 ] m«C0V 7 h "7 x 7I^7-;^0*^(- J; 

[02 ] *mMmm?z>z t tfx-$ m* <r>mmm 
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